unit dPedido_Prod;

interface
uses
classes,
dObjects;

type
Tpedido_prod=class(TdObjects)
private
fidpedido : integer;
fidproduto : integer;
fnumsequencia : integer;
fperdesconto : double;
fqtdproduto : double;
fvaldescprod : double;
fvaltotliquido : double;
fvalunitbruto : double;
public
constructor create; 
destructor destroy; override;
procedure clear;
published
 property idpedido : integer read fidpedido write fidpedido;
 property idproduto : integer read fidproduto write fidproduto;
 property numsequencia : integer read fnumsequencia write fnumsequencia;
 property perdesconto : double read fperdesconto write fperdesconto;
 property qtdproduto : double read fqtdproduto write fqtdproduto;
 property valdescprod : double read fvaldescprod write fvaldescprod;
 property valtotliquido : double read fvaltotliquido write fvaltotliquido;
 property valunitbruto : double read fvalunitbruto write fvalunitbruto;
end;
implementation
constructor Tpedido_prod.create;
begin
inherited;
clear;
self.AddPK(['idpedido']);
self.TableName := 'pedido_prod';
end;
destructor Tpedido_prod.destroy;
begin
inherited destroy;
end;
procedure Tpedido_prod.clear;
begin
 fidpedido      :=0;
 fidproduto     :=0;
 fnumsequencia  :=0;
 fperdesconto   :=0.0;
 fqtdproduto    :=0.0;
 fvaldescprod   :=0.0;
 fvaltotliquido :=0.0;
 fvalunitbruto  :=0.0;
end;

end.
 